home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Superbase 4 ser 12C00584^1.adf
/
Trading
/
STKRTE.SBP
< prev
next >
Wrap
Text File
|
1991-03-13
|
1KB
|
66 lines
SBP
ÿ½ STKRTE
ÿ½ Traded Stocks report
ÿ½ Last updated Jan 21, 90
ÿ³ÿ_ÿwrerror
hd1$ÿ"Traded Stocks report at "ÿÿ(ÿQ,"mmm dd,yy")
hd12$ÿ"Ref: STKRTE"
m1:
ÿÁ
ÿ}ÿÁ
ÿ{@1;"Number of traded stocks: ";&15ÿ(ÿX,"99999.")
ÿ{
ÿÿÁ
ÿ
ÿ{@1;hd1$;@65;hd12$
ÿ{@31;"------ Price Data -----"
ÿ{@1;"Mkt Sector Symbol Units High Low Latest Cap (m) Earnings P/E"
ÿ{@1;"---- -------- --------- ----- ------- ------- ------- -------- -------- ---"
ÿÿ
ÿExchange.STOCKS
ÿÿExchange.STOCKS
ÿ{@1;&16Exchange.STOCKS
ÿÿ
ÿ}ÿExchange.STOCKS
ÿ{
ÿÿ
ÿÉ@1;&4Market.STOCKS;@6;&8Sector.STOCKS;@15;&9Symbol.STOCKS;@25;&5Units.CURRENCY;@31;&7Year_High.STOCKS;
@39;&7Year_Low.STOCKS;@47;&7Price Middle.STOCKS;@55;&8Cap Million.STOCKS;&9Last_Earnings.STOCKS;&4PE ratio.STOCKS
ÿÐCurrency.STOCKSÿCurrency.CURRENCY
ÿµExchange.STOCKS
m2:
ÿ¡p$ÿ"d"ÿp
ÿÊÿËss14$
ÿÏÿ¥ÿÿß
ÿÿ¡
repeat:
ÿÂms3$,"",135,a%
ÿ¡a%ÿ0ÿpÿwrexit
ÿ¡p$ÿ"p"ÿpÿ¹;
ÿwm1
rexit:
ÿ"menu"
rerror:ÿ½ On error
res%ÿ0
ÿ¡ÿ&ÿ11ÿp
ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
ÿ^ÿ¡ÿ&ÿ27ÿp
ÿÂms11$,ms12$,100,a%:res%ÿ2
ÿ^
ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
ÿÿ¡
ÿ¡res%ÿ1ÿpÿyrepeat
ÿ¡res%ÿ2ÿpÿyrexit
ÿ